NO, 21C1819 

SHEET . 0 




DIPAL NAME IS DT21 ^ 
• TITLE WRITE TEST DATA - DT 0021 ■ , ' ' 

MACH.TYPE >; RY GIF APPR csr DATE 
ENGI[S!EERING CHANGE HISTORY 



E/C NO. 


DATE 


SHEETS AFFECTED 




5-3-63 


"1 - 27 \ 


40U980 


5-7-6U 


24-26 \ 


1+12537 


l2-7-.6»* 


16-24, Shts \ 


5 & 26 CANCEL 


412549 . 


4-7-65 


16-23, 24 CAN 




■ ■ • • 




























[ ^ 











E/C NO. 


U0t|860-A 


404980 


.1? 12537 


412549 










DATE 


5-3-63 


5.-7-64 


12-7-64 ! 


4-7-65 
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13U DISK DIAGNOSTIC ISST 0021 
TEST DATA PROGRAM 

This program writes the test data, to be used with DT0022, on cylinder 
97 of tite CE Disk ?ack. Ihe GE Disk Pack can be on any Disk Storage 
Drive unit, but it must contain the indelible addresses of the first (0) 
unit. The indelible addresses may be written using DI0020. 

.jsmf! ■ 

U While running ^e test, the program switches have ^e following 
functions: _ 
Switch ! ON Bypasses error typeouts 
OFF Allows error typeottts 

Switch 2 Not used 

Switch 3 ON Halts on error 

OFF Bypasses halt on error 



Switeh 4 ON Loops test 

" OFF Halts on test cbm^^^ - _- - — 

2. During the keying in of data if the user makes 801 error wiiile 
typing on the console typewriter, he can turn program Switch 3 
on, jMress RELEASE and START, and then turn Switch 3 off and 
re-enter the data.' 



PN 2161819 
EC <»0^0A 



DT 0021 



3> Normal setting of console switches: 



Program Switches-— AS DESIRED 
Data Swltch^sr—— PROGRAM 
4 . The user should insure that the PACK ON and READY LIGHTS on 
the Disk Storage Drive are ONr and thV WRITE ADDRESS an the 
COMPARE DISABLE Switches are OFF. (Compare Disable, IN)) 
C, DETAILED EXPLANATION: 

The test data required for DT0022 is written on cylinder 97 of the OE 
Disk Pack by this test. The correct indelible addresses itiust be oh 
the CE Disk Pack before this test will operate properly, and theia ^ 
addresses must be between 00000-19999 . 



The test has been written in routine form, and groups o^ routines 
perform logical functions. The routiheis that perform logical fuhctions 



^re: 

Control Routine 



SeeH Cylinder Routine 
Generate Test Data Routine 



Write Test Data Routine 
Check Test Data iATritten Routine 
Test Complete Routine 
Error Routine ; ' 
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The Control Routine is comprised of a group of routines. The name of 
the test, switch settings, and pertinent operating Instructions are typed 

out during the execution of the Control Routine. The module number of the 

' I ■■ . ■ . 

Disk Storage Drive unit pn which the CE Pack, is installed must be entered 

from the console typewriter during the execution of the Control Routine. 

After the module number has been keyed in, the drive code digit is 

calculated and stored in the Disk Control Field sub-instructions. The 

Drive code is calculated by multiplying the module number by two and 

i '■ ■ ' ' ■ ' 

adding one to the product. Thus the results are: 

Module No. Drive Code 

: ■ ■ . : ■ ' 3^ 

-3 . ■ ■ : 7 

The last routine of the Control Routine verifies that the CE Pack is on the 
iDisk Storage Drive Unit being addressed. The verification consists of 
accessing to cylinder 00 and attempting to, read a sector with head 0 and 
head 1. A file address check should occur on each attempt. Then an 
access to cylinder 34 is executed, and an attempt is made to read a 
sector with heads 2 and 3. File address checks should occur on both 
of these attempts . Similar attempts are made to read sectors on cylinders 
35, 36, and 99 using heads 4 and 5, 6 and 7, and 8 and 9 respectively. 
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If file address checks do not occur on all the reads « it Is assumed that 
the CC Pack is not installed and the message "Disk Pack on 1311 is nipt 
GE Disk Pack— Don't use Program" is typed out. The program halts after 
typing this message, and if the START key is depressed, the Control 
Routine is repeated* 

The Seek Cylinder Routine positions the access mechanism at cylinder 
97 by executing a seek instruction and then attemtping to read a sector 
on cylinder 97. If no file address cheik occurs, the access mechanism 
is assumed to be at cylinder 97 . If a file address check occurs, the 
complete track is read, the cylinder number is calculated from the data 
read, and an error message is typed Out Indicating, the cylinder at which 
the access mechanism is positioned and that it should be 97. This routine 
will be repeated until the access mechanism is positioned at cylinder 97^ 

The Generate Test Data Rbutine is executed after the access mechanism 
has been positioned at cylinder 97 . Two thousand characters of data 
are generated in the write area (labeled kl) of core. The format is: 

X00000000011111111112222222222.. .99999999990000000000 

1111111111.. .^9999999999 , i 

■ ■ ' ■ ! 

■ ': • ■ . I i . ■ 

X is the head number of the particular track on which the data will be 
written; therfore, all tracks will contain the same information except for 
the first character of the track. This routine also insures that ail of the 

VRC indicators are pFF or are turnedl OFF. 

PN 2161BI9 
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The Write Test Data Routine writes the test data on cylinder 97 . A group 
mark is s^t in the proper location so that the data can be written using 
the wrong length record mode. After the data has been written « the 
ANY DATA CHECK is interrogated. If it is QN, the Error Routine is 
entered in order that a message can be typed out indicating which Indicators 
are ON. After the eiror messages have been typed out, another attempt 
is made to write the test data. A read back check is executed after 
the test data has been written without turning on the ANY DATA CHECK. 
^MtM^Ms.IBA^'^^'^^^^^^^^^* ANY DATA CHECK is interrogated again. 
If it Is on,, the Error Routine is entered to type out a message Indicating 

which indicators are on. The read back check Instruction is attempted 

■• I ■ . ' ■ , 

again after the error message is typed out. If no VRC indicator was 
turned on during the execution of the read back check instruction, the 
Check Test Data Written Routine is entered. Thi6 routine consists 
of instructions to read the track previously written into a read area 
(labeled A2) and to make a program bompare against the; write data. 
If the read and write data compare , a check is made to see if ail ten 
tracks in the cylinder have been written. If not, updating instructions 
are exiBCUted and the Write Test Data Routine is reentered. If the read 
and write data do not comparie, an error message is typed out, and then 
the check to see if all tracks have been written is made. The Write 
Tast Data and the Check Test Data Written Routines are executed in order 
until all tracks in cylinder 97 have been written. 

?n 2161819 
EC WiSOA 
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The Test Complete Routine is entered after all tracks have been written. 
In the test Cbmplete Routine a Check is made of Program Switch 4 • If 
it is on, the entire Test is repeated until switch 4 is turned OFF. With 
switch 4 OFF , switch 1 is interrogated • If it is OFF , the test completed 
message is typed out and the prog|ram halts. If switch 1 is on, a check 
is made of the error map to determine if any errors occurred while running 
the test. If any errors occurred, a message that the error type outs were 
suppressed precedes the test complete message. 

i " .. .' ; ; ; ■ ■ \ .... ■ ' ' ; , 

The Error Routine contains the instructions to type out the error messages, 

log the fact that an. error occurred, and return the program to the proper , 

place after the error message has been typed out. 

i . ■ ■ , ■ ' ■ ' . , .' ' ' . ■ ; 

p. ERROR ANALYSIS ; 

ERROR OCCURRED BUT SW 1 WAS ON THUS NO ETC . ER 30 01914 , 
This error typeout will occur in the test complete routine if the user 
has switch 1 ON and an error occurred during the running of the test. 
ETC error typeout. 

ACCESS AREMATXX SHD BE 97. ER22 01014 

.This typeout will occur if the access' arm fails to seek cylinder 97 in order 
that the test data can be written on it. XX is the cylinder at which 

FN 2I61819 ' 
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the access arm was positioned. It should have been 97 . 

All other epror typeouts follow the following format: 

AAAAAAAAAABBBBBBB (XX) CYL ZZ HD Y 

' ' ' ' ,■ ■ • ■ ' ■ 

AAAAAAAAA, is the program disk operation that the error occurred on* 

The disk operation are all WITH WRONG LENGTH RECORD CHECK. 

The messages that can be typed are: 
WRITE 20 SCT ER3 01554 

The program is writing 20 sectors (1 track) of test data from 
area Al in memory onto a track on the Disk Pack. 
READ BACK COMP ER4 01614 

The program is read back track check of the data written onto 
the Disk Pack out of area Al in memory. 
READ 20 SCTR ER5 01674 

The program is reading the 20 sectors written, back into 

area A2 in memory. 

PROG COMPARE ER6 01758 

The program is doing a compare of the 20 sectors of data 

written from area Al and read back into area A2. 

SEEK . ER8 00942 | 

The prograni has performed ^ seek operation. 
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BBBBBBBB(XX) , is the error that oc^ciifrred and turned on Any Data 
Check. Wher0 XX is the indicator* 

The messages that can .be typed ^re^ 



ADS CK (36) 


ERIO 


02058 


wm CK (37) 


ERll 


02130 


OVFO CK (38) 


1 

ER12 


02154 


RD CK (06) 


ER14 


02190 


WR CK (07) 


ERIS 


, 02214 


MBR-E (16) 


ER16 


02238 


MBR-0 (17) 


ER17 


02262 


FILE NO IND (39) 


ER13 


02154 



The program found any file indicator on, but all the 
indicators which turn it on are off . 
, DATA NOT EQUAL ER7 01782 

The 20 sectors of test data written onto the Disk 
Pack does not compare . with , the data that was read back 
into memory , 
SELECT LOCK ER19 02058 

Self-explanatory 
CYLZZ HYY ER 20 02370 

This is the rest of the error typeout that tells the user 
which cylinder (CYL) the error occurred on, where ZZ will 
be from 00 to 99 , And also which head (HD) or track was 



In error on that cylinder, where Y will be from 0 to 9. 

E. SERVICE HINTS : 

This test is not intended to be a diiagnostic; howeveri all the teat 
data that is written on the file is read back into memory and compared. 
If the program runs successfully, the assumption may be properly 
made that the computer can write to and read from the Disk Storage 
Drive. 



m 2161819 
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o — 
00 



CT 0021 - 1311 TEST CAT* 



I* 

THIS PRCG 
WRITES TEST 
DATA CN CYL 
97 CF C E 
DISK PACK 



CC594 



CO^Ci STA 



START TEST 
AT CG402 



00414 



•RESTART* 
BRCh XXXXX 



TYPE 
TEST NAME 

" CT 0021 




C0606 



IG 

• • 

• • CN 

• CCNSCLE • 00 

ShITCH 3 « 
» ON - CFF • 11 

• • ' . 

I 

I 
I 

I IH 

THIS RCliTNE 
CCKPUTES 
DRIVE CCD€ 
AND LOACS 
SUB-INSTS 



DOUBLE THE 
HCD.NO. AND 
ADD 1 

STORE CRIWE- 
CCDE DIGIT 



004 3fl 




00642 



TYPE 
SWITCH 3 
SW SETTINGS 
PROG-DESIRE 
DATA-PROG 




00534 



0055(9 00 




LOAD THE 
SL8 - 

INSTRCTICNS 
WITH DRIVE 
CODE 



I 
I 

I IL 

THIS RCUTNE 
CHECKS THAT 
DISK PACK 
ON FILE IS 
CE PACK 



C0690 



in 



INITIALIZE 
SET FLAG 





I 

I 
I 

TO 



IN 



C0726 K3 

T 
I 
I 
I 
I 



00738 02 

I ' 
I 
t 
I 
I 



IN 



SEEK 
CYLINO£R 



00856 01 



lU 



• CHECK CYL 
t . 99 YET 



NC 



YES 
K2 

» 

ix 



ti -4 
» g 

— ro 



IP 



00882 



OCT50 



ATTEHPT TC 
READ A 
SECTOR FROM 
CYLINDER 



IQ 



ADDRESS CK 
- INO 36 



ON 
Kl 

IS 



IV 



SET FLAG 
LCAC SUB- 
INSTRUCTION 
UPDATE 



GCTC 



K3 



THIS RCUTNE 
SEEKS CYL 
97 TC PUT 
TEST CN IT 



IN 





cff""i 




00762 


I IR 




• 


TYPE 






NCT CE DISK 




• 


PACK.DCNT 


• 


• 


USE PROGRAM 


• 


• 




• 




GOTO STA 


IB 



00930 K2 



IX 



00810 Kl 



IS 



00942 



YES 



00822 



FLAG 



NO 
01 



lU 



IT 



CLEAR FLAG 
UPDATE. FOR 
NEXT HEAD 



01002 



LCAD SUB- 
INSTRUCTION 



lY 



SEEK 
CYLINDER 97 



12 



READ A 
SECTOR FROM 
CYLINDER 97 



IP 



DT 0021 - 1311 TEST DATA 



01014 2if 

•* *"* *• OFF 

• ACCftESS CK • K5 
• INO 3« « 

• • 2H 



26 



LCAC TEST 
0ATA IKTG 
AREA Al 



01026 



t 2B 



CHANGE 
SECTCR 
COUNT FIELD 



€1182 KS 



2H 



01038 



I 
1 



€1230 03 



RESET SCTR 
CNTER 
SET FLAG 
INITIALIZE 
TF AND CF 

I 
t 

f 24 



C1C50 



01122 



OllfC 



I READ TRACK I 
I W/O ULR CK« I 
I ACRS PLtS I - 
I DATA INTC 1 
1 CORE - I . 




. ■ 

■ I 
I 

J. I . zo 




I XDHPuTt CYL I 
I THAT ACCESS I 
I ARM WENT TO I 




I LOAD ER T/C 1 




I 

• ... 1 - ■ 
1 
I 

' I 2E 


01278 


» TYPE ERROR 

ER22 . 

ACCESS ARH 

AT XX ShO 
• BE AT^97 . 




- „r'^V.,V\ -"^ 




1 GC TO K2 I 
I TRY AGAIN 1 




'~*6CT~*^i""* IX 





LCAC DATA 
CLEAR FLAG 



2IC 



CHECK FOR 
DCNE 



YES 
12 

I 

2P 



NO 



-— 

I 
I 
I 

1 



2L 



UPDATE THE 
TF AND CF 
INSTRCTICNS 



GOTO 



03 



2J 



OB 
P — 

> «o 



AH 



2N 



2U 



01314 12 



THIS RCUTNE 
RESETS THE 
INCICATORS 
THAT TURN 
ON INO 19 



2P 



01470 04 



ViRITE 20 
SECTORS CF 
TEST DATA 



.2V 



I • OFF 

ANY DATA CK • 04 
IND 19 • 

• 2y 



CN 



01326 



1 
1 

I 20 



ANY FILE CK 
INO 39 



01518 



LOAD GROUP 
HARKS • 
LCAC SUB> 
INSTRCTICNS 



2U 



OFF 
05 

I 

2S 



LOAD NEXT 
INST 

PUT HD CNT 
DIGIT IN 
TEST DATA 



CN 



01338 



2R 



01554 K6 



2X 



I RESET- 




I ACRS CK 




I HLR CK 




I OVFO CK 





01374 05 



1 
I 
I 
I 

_ I 

RESET- 
RO CK 
WR CK 
M8R~E CK 
HBR-O CK 



2S 



01566 



WRITE SCTCR 
KITH WLR CK 
20 SECTORS 
WRITEN CN 
CISK PACK 



2Y 



ANY DATA CK 
INO 19 



OFF 
06 

3fi 



01422 




ON 



01578 



22 



LOAD RETURN 
LOAD ER T/0 
ER3 



6CTQ 



ERR 



4P S-^ 



go — 
a> oo 
P — 



01614 06 



3A 

THIS RCtlTNC 
DOES A READ 
BACK CHECK 
CF CATA 
MR I TEN 



Of 0021 - 1311 TEST DATA PRCGRAK 



3G 



38 



01674 07 



THIS RCUTNE 
READS CATA . 
INTC AfiEA 
A2 



01626 



RE AC flACK 
CHECK 

kITH Wt« CK 



I 

r 3C 



ANY DATA CK 
IKO 19 



3H 



REAC SECTCR 
WITH MLR CK 
20 SECTCRS 
REAC IMC 
AREA A2 



C1734 08 



3N 

THIS ROUT\E 
DOES A PRCG 
CCkPARE CF 
CATA WRITEN 
AND READ 



3P 



0168« 



3J 



01782 



SET FLAG 
SET FLAG 
CCMPARE 
CLEAR FLAG 



3C 



C1878 



CC TO 
K6-24 



OFF 
07 

3H 



» • CFF 

ANY CATA CK • 08 
IliC 19 • 

• 3P 

t ♦ 



• IS COMPARE 
• EGUAL 



YES 
09 

3S 



CN 



01638 



CN 



1 

I 30 



C1698 



I 
I 
I 
I 

I 3K 



NO 



0179* 



3R 



LOAC RETURN 
LCAC ER T/0 
ER4 

CCTO * ERR 



LCAO RETURN 
LOAC ER T/C 
EX5 



LOAC RETURN 
LCAC ER T/O 

ER6 

ER7 



'VP 



GOTO 



ERR 



4P 



GOTO 



ETC 



5H 



CI 830 09 



3S 



• HAS ALL 

» TRACKS CN 

• CYL BEEN MR 



YES 
10 

y 

4B 



01854 



•— 



NC 



3T 



UPDATE - 
THE SUB- 
INSTRCTICNS 



I 
I 
I 

10 3U 



CT 0C21 - 1311 TiEST CATA l»RC6RA»( 



4A 



CI 986 



TEST 

CCfPtETC 

RCtTlNE 



01890 10 ^ ^ 

•* ccNsote 

• SUITCM 4 
• CFF - CN 



* ON 



01902 



CN 



I 
I 

• OFF 

CCNSOL* • 17 
SWITCH 1 • 
CN - CFF • 4F 



01914 



I 
I 
I 
1 

I 40 



• rS A»> IN 
» ERRCR MAP 



» NO 

• 17 

• 4F 



VfS 



0192 ft 



TYPE 
SCKE ERRCR 
CCCtRREO 
eUT SUl ON 
NO ET0.ER30 



019S0 17 



I 4F 



TEST 

CC ' 



TTPE 



KPiETEC 



01998 



02010 




4N 



EitROR 
SUBROUTINE 



C2130 



4U 



02022 ERR 



I 
I 

1 4P 



• •ON 

• ANY DATA CK « 18 

* INO 19 * 

• • 4R 



CFF* 



02034 



40 



RETURN . 
PRCGRAP 



02046 18 



4R 



• •OFF 

• ANY FILE CK • JIO 

• INC 39 • 

• • 4X 

™ i 

- I 
I 

C2C58 

• * ~" • CFF 

• ACCRESS W • • 

• INO 36 • ^2 

• • 4U 

cj" "" r "* 

02070^^ _ 

I CHECK*FCR * "1 

1 SELECT LOCK I 

1 ADRS CHK 1 

1 DETECTED CN I 

t SEEK /RD TK I 

*' CCTC * ETC ~ 5M 



• hLR CHECK 

• INO 37 

• ERll 
• 

OFF I "* 
I 
I 

02154 ^ _ i 

•'overflow CK 

• INO 38 

• ER12 

OFF I 
I 
I 



C2178 



4W 



ER13 



CCTC *'eT0' 



C2190 JIO^ ^4X^ 



« READ CHECK 
INC ( 
R14 



• INC 06 



CFF 1 



C2214 



1 
I 

I 4Y 



• WRITE CK 
> INO 07 

• ER19 



CFF 



C2238 I 42^ 



• PBR-E CK 

"NO J 
R16 



|N0 16 



CFF 



TO 46 



TO SA 



o — 

* CO 
p — 
> so 

C2262 



5A 



• HBR-C CK 

• INC 17 

• ERU 



» CN 
• ETC 

•* 5H 



OT CC2 1 - 1 311 TEST CAT* PRCGft Aft 



56 



ERRCR 
TYPECtI 
ACIiTlNE 



0251* 



5^ 



CCNSCLE 
SWITCH 3 
ON - OFF 



OFF 



07286 



I 
I 

I SB 



• HAR CHECK 
• I NO 0 8 



€2358 ETO 



5H 



02526 



• CN 
• ••♦12 

■ ■•. 



CCNSCLE 
SWITCH 1 
CN - CFF 



CN 
Jll 

51* 



OFF 



02298 



I 
I 
I 
I 

I 5C 



• TAS CHECK 
♦ IWC 21 



OFF 



02 370 



ON 

.•♦12 



OFF 



C2310 



50 



F R CHECK 

INO 22 • 

• • ■ 



ON 

• •♦12 



C2382 



54 



02538 19 



CCKPUTE THE 
CYL ANO HO 
NO. FRCP 
ADRS CNTER 




5K 



LCAC THE 

TYPECUT 

INSTRCTICNS 



02322 




INC 23 



ON 

• •♦12 



C2430 



51 



TYPE 
ERRCRS* 
INST.INO* 
CYUANC HC 



C2334 



OFF 



I 5f 



6C TO 
ERR 



C2478 Jll 

r 

I 

1 



PtiT A RP 
IN THE 
ERRGR PAP 



TO 5N 
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SAMPLE OUTPUT FOR DT 0021 



DT 0021 - TEST DATA PROGRAM 
SW 3 ON FOR CORRECTING KEY IN 
SWITCH SETTINGS 
PROGRAM - AS DESIRED 
'DATA— PROG 

KEY IN 1 DIGIT MODULE NUMBER 0 
TEST COMPLETED 



m 2l4ia}9 
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00010» 

00020* 

00030* 

00040* 

00050* 

00060* 

00070* 

00080* 

00090* 

00100* 

00110* 

00120* 

00140 STA 

00150 

t)0160 

00170* 

OOIBO* 

00190* 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300* 

00310* 

00320* 

00330 

00340 

00350 

00360 

00370* 

00380* 

00"^<)0* 

00400* 

004 tC* 

00420* 

004'?0* 

00440 

00450" 

00460 

00470 

00480 

00490 

00500 

on"?!©* 

00520* 

00530* 

00540* 

00550* 

00570 

00580 

00590 IC3 



OT 0021 - TEST DATA PROGRAM 



THIS PROGRAM WRITES TEST 
DATA ON CYLINDER 97 OF THE 
CE DISK PACK- FOR 1311 
DISK STORGE DRIVE 



CONTROL ROUTINES 



00R6 0C402 
6 *"H2»«» 
RCTY 

WATY Tl»»t 



RESTART 

RETURN CARRIAGE 
TYPE TEST NAME 



TYPE OUT SWITCH SETTINGS 



•RCTY 
WATY 
RCTY 
WATY 
RCTY 
WATY 
RCTY 
WATY 
H 



130**9 

« » » 
T4, • • 

• *• 

T5«*« 

T6'« • • 
if* 



RET CARR 
TYPE SW3 ON 
RETURN CARRIAGE 
TYPE SW SETTING 
RETURN CARRIAGE 
TYPE SENSE— OFF 
RETURN CARRIAGE 
TYPE DA7A-PR06 
HALT 



TFM STA+6.*+12»t LOAD RESTART 
REQUEST AND ACCEPT MODULE NO. 



RCTY 

WATY T7,,. 
RNTY N»»» 
BC3 •-12»»» 



RETURN CARRIAGE . 
ROT MOD NO. . 
KEY IN NUMBER 
SW3 ON TYP AGAir 



THIS ROUTINE COMPUTES DRIVE 
CODF- DIGIT FROM MODULE NO. 
AND LOADS SUB-INST WITH 
DRIVE CODE DIGIT 
ANt STORE MATH TABLES 



MM 


N«02*l0f 


MULTIPLY 


AM 


99,01,8t 


ADD 1 


TD 


M.99.. 


RELOAD MOD NO. 


TD 


S1»M,. 


LOAD MOD NO. 


TD 


S2»Mf» 


LOAD MOO NO. 


TO 


S3.M,. 


LOAD MOD NO. 


TR 


TAB,00100.» 


.STORE MATH TABLES 



THIS ROUTINE CHECKS THAT 
THE DISK PACK ON STORAGE 
UNIT IS THE CE DISK PACK 



TFM S3+5t0000O»» 
TFM K4+11.CC## 
K S3 ♦ 0070 1.. 



LOAD SUB-INST 
LOAD INST 
SEEK CYLINDER 



00402 

00402 49 00414 00000 
00414 34 00000 00102 
00426 39 02551 00100 



00438 
00450 
00462 
004741 
00486 
00498 
00510 
00522 
00534 
00546 



34 OOQOO 
39 02907 
34 00000 
39 02607 
34 00000 
39 02639 
34 00000 
39 02681 
48 00000 
16 00408 



00102 
OOlOO 
00102 
00100 
O0102 
00100 
00102 
00100 
00000 
-0558 



00558 34 00000 00102 
00570 39 02703 OOlOO 
00582 36 t)3949 00100 
00594 46 00582 00300 



00606 13 
O0618 11 
00630 25 
00642 25 
00654 25 
00666 25 
00678 31 



03949 000-2 
00099 0-00 1 
03953 00099 
03966 03953 
03980 03953 
03994 03953 
03646 DC I 00 



00690 26 03999 -0000 
00702 16 009O5 -4012 
00714 34 03994 00701 
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006«0 
00610 
00620 

0&630 

00640 

00650 

00660 XI 

00670 

00680 

00690 

00694 

00696 

00700 

00719 

OCt^iO K4 
^10740 

00750 

00760* 

00770* 

00780* 

00790* 

00800 K2 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 
-00980 

00990 

01000 

01010* 

01020* 

01030* 

01040 K5 

01050 
. 01 060- 

01070 

01080 

01090 

01100 

OHIO 

01120 

01130 

01140 

01? 50* 

01160* 



RN 
BI 

RCTY 
WATY 
H 
B 

BNF 

CF 

AM 

B 

SP 

BI 

CM 

BE 

TF 

AM 

B 



S3»00702»» 
Kl*03600*» 

T20t»» 

STA««11« 

*4>48«Kl-l»t 

Kl-l»t» 

S3+5»20t» 

K3+12»»» 

Kl-1»»» 
*4l2«0600»* 
S3*3»199«9». 
tC2*f* 

S3+5»99999,» 
K4<fll»05t* 



READ A SECTOR 
ADDRESS CHECK 
RET CARR 
TYPE DO NOT USE 
HALT 

START OVER 
CK FOR FLAG 
CLEAR FLAG 
UPDATE NEXT HD 
LOOP BACK 
SET FLAG 
TURN OFF RO CK 
IS LAST CYL 
BRCH EQUAL 
LOAD SUB-INST 
UPDATE INST 
LOOP BACK 



THE NEXT ROUTINE SEEKS CYL 97 
IN ORDER TO PUT TEST DATA ON IT 



TFM S3+5fl9400t» 
K S3»00701ff 
BNI *-»'48« 01900 ft 
TFM ERR*18t*-24,, 
TFM El*6»ER8f» 
B ERRtf • 
RN S3»00702,t 
BNI K5«03600*« 
TFM S3+8t020»9, 
RN S3* 00706 •# 
SF A3'H»»t 
MM A3+3»05»10, 
TD ER22+28,97#, 
TO ER22+30t98.» 
CF A3*l»»» 
BCl *+36»#» 
RCTY **« 
WATY~ER22»»» 
BNC3 **24,.« J. 
H *•* 
B K2* 



LOAD SUB-INST 
SEEK CYLINDER 97 
ANY DATA -CHECK- 
LOAD RETURN 
LOAD OPERATION 
BRCH 70 ER ROUT 
RO SECTOR 
ADDRESS CHECK 
CHANGE SECTOR NO* 
READ TRACK 
SET FLAG 
COMPUTE CYL 
LOAD ER T/O _ 
LOAD ER T/O 
CLEAR FLAG 
SW 1 ON BYPASS 
RET CARR 
TYPE ERROR 
SW 3 ON HALT 
-HALT 
TRY AGAIN 



LOAD TEST DATA INTO AREA Al 



TFM S3-»-8t001»9, 

SF T0»f • 

TFM *+3O,Al'+l00t« 

TFM »+30«Al4-l«# 

TF 99999 •TD+99»« 

CF 99999»»« 

CM *-18«AH-2000». 

BE *+48,,. 

AM *-42»l00»« 

AM *-42»100»< 

B *^72 * • * 

RESET INDICATORS 



RESET SCTR CNT 
SET FLAG 
INITIALIZE 
INITIALIZE 
LOAD DATA IN Al 
CLEAR FLAG 
SEE IF DON'E 
BRCH IF DOME 
UPDATE 
UPDAlE 
LOOP BACK 



00726 36 
00738 46 
00750 34 

00762 39 
00774 48 
,00786 49 
^5079© 44 
C0810 33 
00622 11 
00834 49 
00846 32 
00858 46 
00870 14 
00882 46 
00894 26 
00906 11 
00918 49 



03994 
00798 
00000 
02793 
00000 
00402 
00846 
00797 
03999 
00726 
00797 
00870 
03997 
00930 
03999 
00905 
00714 



00930 
00942 
00954 
00966 
00978 
00990 
01002 
01014 
01026 
01038 
01050 
01062 
01074 
01086 
01098 
OHIO 
01122 
01134 
01146 
01158 
01170 



16 G3999 
34 03994 
47 01002 
1« 02040 
16 02448 
49 02022 
36 03994 
47 01182 
16 04002 
36 03994 

32 08036 
13 08038 
25 03521 
25 03523 

33 08036 

46 01146 

34 ^0000 
39 03493 

47 01170 

48 00000 

49 00930 



01182 16 
01194 32 
81206 16 
01218 16 
01230 26 
01242 33 
01254 14 
01266 46 
01278 11 
01290 11 
01302 49 



04002 
03546 
01236 
01248 
.99999 
99999 
01236 
01314 
01236 
01248 
01230 



00702 
03600 
00102 

00100 
00000 
0000- 
00797 
00000 
-0020 
00000 
00000 
00600 
00J99 
01200 
99999 
-0005 
00000 



J9400 
00701 
01900 
•0942 
-3109 

obooo 

00702 
03600 
00-20 
00706 
00000 
000-5 
00097 
0009e 
00000 
00100 
00102 
00100 
00300 
00000 
00000 



00-01 

00000 

-4131 

-4032 

03645- 

00000 

-6031 

01200 

-0100 

-0100 

00000 
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01170* 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01900 

01310* 

01320* 

01330* 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 K6 

01420 

01430 

01440 

01450 

01460* 

01470* 

01480* 

01490 

01500 

01510. 

01520 

01530 

01540* 

01550* 

01560* 

01570 

01580 

01590 

01600 

01610 

01620* 

01630* 

01640* 

01650* 

01660* 

O1670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 



AMY 


#^1 >01900> a 


ANY DATA CHECK 


01314 


47 


01470 


01900 


6NI 


*<«-48«03900«f 


ANY FILE 


01326 


>7 


01374 


03900 


B! 


*4-12»03600,f 


AORS etc 


01338 


46 


01. 350 


03600 


BI 


*+12»03700», 


RL CK 


01350 


46 


01362 


03700 


BI 


*-fl2«03800»« 


OVFO CK 


01362 


46 


01374 


03800 


BI 


*4>12»006O0«t 


RO CK 


01374 


46 


01386 


00600 


BI 


*4>12»00700t« 


WR CK 


01386 


46 


01398 


00700 


BI 


*-fl2f01600«« 


MBR~E CK 


01398 


46 


01410 


01600 


BI 


*+12tO1700.» 


MBR-^0 CK 


01410 


46 


01422 


01700 


BI 


*<fl2»00800** 


MAR CK 


01422 


46 


01434 


00800 


BI 


*+12»O210O,# 


TAS CK 


01434 


46 


01446 


02100 


BI 


**12t02200,t 


F R CK 


01446 


46 


01458 


02200 


BI 


*4-12*02300«» 


A 0 CK 


01458 


46 


01470 


02300 


WRITE TRACK OF TEST DATA 










TO 


A2-1«GM». 


PUT IN GM 


01470 


25 


06032 


03962 


TO 


A3-ltGM», 


PUT IN GM 


01482 


23 


08034 


03962 


TFM 


Sl*5»19400»» 


LOAD SUB-INS. 


01494 


16 


03971 


J9400 


TFM 


S2*5tl9400,t 


LOAO SUB-INST 


01506 


16 


03985 


J9400 


TFM 


«+23fT0+l»» 


tOAD NEXT INST 


01518 


16 


01541 


-3547 


TO 


Al+lt99999,» 


SET UP HD CNTR 


01530 


25 


04032 


99999 


AM 


♦-1»10»» 


UPDATE 


01542 


11 


01541 


-0010 


WN 


Sl»00700,, 


WR TK WITH RlC 


01554 


38 


03966 


-00700 


BNI 


»+48»01900,. 


ANY DATA CHECK 


01566 


47 


01614 


01900 


TFM 


ERR+18«*-24»« 


LOAD RFTURN 


01578 


16 


02040 


-1554 


TFM 


E1+6»ER3»» 


LOAD ERROR T/O 


01590 


16 


02448 


-2967 


B 


ERR,,, 


CK FOR ERROR 


01602 


49 


02022 


00000 


PFAO BACIC CHECK 












RN 


SI #00701 ' 


RO BX CK RLC 


01614 


36 


03966 


00701 


BHl 


♦+4B ..01900,-, 


ANY DATA CHECK 


01626 


47 


01674 


01900 


TFM 


ER«^ J«,*-24,, 


LOAD RETURN 


01638 


16 


02040 


-1614 


TFM 




LOAD ERROR T/O 


01650 


16 


02448 


-2995 


B 




BRCH TO ERROR 


01662 


49 


02022 


00000 


READ D*TA -INTO -AREA A2 










RN 


S2, 00700,4 


RD DISK RLC 


01674 


36 


03980 


00700 


BNI 


♦+48,01900,, 


ANY DATA CHECK 


01686 


47 


01734 


01900 


TFM 


ERR »-18,*-24,, 


LOAD RETURN 


01698 


16 


02040 


-1674 


TFM 


E1+6,ER5,, 


LOAD ERROR T/O 


01710 


16 


02448 


-3023 


B 


ERR,,, 


BRCH TO ERROR 


01722 


49 


02022 


00000 



THIS ROUTINE DOES A PROGRAM 
COMPARE OF DATA READ WITH 
THE DATA THAT WAS WRITTEN 



SF 
SF 
C 

CF 

BE 

TFM 

TFM 

BTM 



Al+1,,, SET FLAG 

A2'»-l,,» SET FLAG 

AH-2000,A2+2000,, COMPARE DATA 



Al-fl,** 
*4'48,»» 

ERR+18»K6», 

£l-«-6«ER6»« 

ET0»ER7t» 



CLEAR FLAG 
BRCH IF EQUAL 
LOAD RETURN 
LOAD ERROR T/O 
BRCH LOAD ER T/O 



01734 32 
01746 32 
01758 24 
01770 33 
01782 46 
01794 16 
01806 16. 
01818 17 



04032 
06034 
06031 
04C32 
01830 
02040 
02448 
02358 



00000 
00000 
08033 
00000 
01200 
-1554 
-3051 
-3079 
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01750 
01760 
01770 
01780 
01790 
01800* 

oiaio* 

01«20» 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
0)920 
01930 
01940» 
01950* 
01960» 
01970 fRR 
01980 
01990. 
02000 
02010 
02020 
02030 
02040 
02050 
O2O60 BYSL 
02070 
02980 
02090 
02100 
02110 JlO 
02120 
0213e 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240» 
02250* 
02260* 
02270 
02280 
02290 
02300 
02310 

02320 



ETO 



CM 


Sl+5tl9580,, 


COMPARE TO DONE 


BE 


«<»-A8«t* 


BRCH IF 


AH 


Sl-«>5*20*» 


UPDATE 


AM 


S24-5«20»* 


UPDATE 


8 


K6*24»»« 


LOOP BACK 


TEST COMPLETE ROUTINES 


8C4 


K24-12ftt« 


4 ON LOOP BK 


BNCl 


♦♦48t»« 


«w 1 OFF BYPASS 


BNR 


•♦^6tERMt» 


rr FOR RM IN MAP 


RCTr 


• • • 


RETURN CARRIAGE 


WATY- 


ER30t«* 


TYPE ER OCCURRED 


RCTY 




RETURN CARRIAGE 


WATY 


T10»»» 


TEST COMPLETED 


RtTY 




RETURNCARRIAGE 


H 




HALT 


TFM 


STA4>6«STA4-12»f 


LOAD RESTART 


6 


STA»»t 


RESTART TEST 


ERROR SUBROUTINE 




BI 


••♦•24»01900,» 


ANY DATA CHECK 


B 


99999,. • 


RETURN TO PROG 


BNI 


Jl0t03900», 


Any FILE CHECK 


6NI 


BYSL»03600»» 


ADDRESS CHECK 


CM 


El*6»ER8t« 


WAS OP A SEEK 


BNE 


♦+36fff 


BRCH - NO 


TFM 


El+1.41»10, 


CHANG WATY TO NOP 


BTM 


ET0.ERl9t» 


BRCH LOAD ER T/0 


BTM 


ETO.ERIO,, 


BRCH LOAD ER T/0 


BNI 


♦•f24»03700,» 


RECORD LENGTH CK 


BTM 


ET0.ER11»» 


BRCH, LOAD ER T/0 


BNI 


«-f 24*03800. • 


OVERFLOW CHECK 


BTM 


ET0»ER12»t 


BRCH.LOAD ER T/0 


BTM 


ET0.ER13t. 


BRCH .LOAD ER T/0 


BNI 


_*+?4, 00600, , 


READ CHECK 


BTM 


Ei'0»ER14.e 


BRCH.LOAD ER T/0 


BNI 


•*24, 00700,. 


WRITE CHECK 


BTM 


ET0.ER15,. 


BRCH.LOAD ER T/0 


BNI 


•+24,01600,, 


M8R-E CHECK- 


BTM 


ET0,ER16,, 


BRCH.LOAD ER T/0 


BNI 


♦+24,^1700,, 


MBR-0 CHECK 


BTM 


ET0,ER17,. 


BRCH.LOAD ER T/0 


BI 


•+12,0800., 


MAR CHECK 


BI 


•+12,02100,, 


TAS CHECK 


BI 


•+12,02200»» 


F R CHECK 


BI 


♦+12,02300,, 


A 0 CHECK 


B 


ERR,., 


LOOP BACK 


ERROR TYPE OUT ROUT INE 


NOP 




NO OPERATION 


6C1 


Jll... 


SW 1 ON BYPASS 


MM 


Sl+5, 05,10, 


MULTIPLY 


TD 


ER20+10,95,, 


CYL. NUMBER 


TO • 


ER20+12,96.. 


CYL. NUMBER 


TD 


ER20+24.97,, 


HD NUMBER 



01830 14 03971 J9580 

01842 46 01890 01200 

01854 11 03971 -0020 

01866 11 03985 -0020 

01878 49 01530 00000 



01890 46 
01902 47 
01914 45 
01926 34 
01938 39 
01950 34 
01962 39 
01974 34 
01986 48 
01998 16 

02010 49 



00942 
01950 
01950 
00000 
03405 
00000 
02763 
00000 
00000 
00408 
00402 



02022 
02034 
02046 
02058 

02070 
02082 
02094 
02106 
02118 
02130 
02142 
02154 
02166 
02178 
02190 
02202 
02214 
02226 
02238 
02250 
02262 
02274 
02286 
02298 
02310 
02322 
02334 



46 02046 
49. 99999 

47 02190 
47 02130 
14 02448 
47 02118 

16 02443 

17 C2358 
17 02358 
47 02154 
17 02358 
47 02178 
17 02358 
17 02358 
47 02214 
17 02358 
47 02238 
17 02355 
47 02262 
17 02358 
47 02286 
17 02358 
46 02298 
46 02310 
46 02322 
46 02334 
49 02022 



00400 
00100 
03961 
00102 
00100 
00102 
00100 
00102 
00000 
-0414 

00000 



01900 
00000 
0390O 
03600 
-3109 
01200 
OOOMl 
-3349 
-3121 
03700 
-3149 
03800 
-3177 
-3207 
00600 
-3245 
00700 
-3271 
01600 
-S297 
01700 
-3323 
00800 
02100 
02200 
02300 
00000 



02346 41 
02358 46 
02370 13 
02382 25 
02394 25 
02406 25 



00000 00000 
02478 00100 
03971 000-5 
03387 00095 
03389 00096 
03401^00^7 
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02330 

02340 

02350 El 

02360 

02ST0 

02380 Jll 

02390 

02400 

02410 

02420 

02430 

n2440» 

02450* 

02460* 

02470* 

02480 Tl 

02490 74 

02500_75 

02510 76 

02520 77 

02530 

02540 710 

02550 720 

02560 

02570 

02580 730 

02590 

02600* 

02610* 

02620* 

02630 ER3 

02640 ER4 
02650 ER5 
02660 ER6 
02670 ER7 
OZ680 ER8 
02690 ERIO 
02700 ERll 
02710 ER12 
02720 ER13 
02730 ER14 
02740 ER15 
02750 ER16 
02760 ER17 
02770 ER19 
02780 ER20 
02790 ER30 
02800" 
02810 ER22 
02820* 
02830* 
02840* 
02850* 
02860 7D 
02870 
02880 
02890 
02900 

PN 2I6I8I9 
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7F El*18tE70-lf. 

RC7Y 

WA7Y 99999t»* 
WA7Y 99999t»» 
WA7Y ER20«»* 
7D ERMvRMft 
7R 00100*7ABt» 
7FM El'i-lt39tl0* 
BNC3 *+24.#» 
H 

B ERR«f» 



LOAD ER 7/0 
RE7URN CARRIAGE 
7YPE ERRCR 
7YPE ERROR 
7YPE ERROR 
PU7 RM IN MAP 
REPLACE MA7H TAB 
CHN6 NOP TO WA7Y 
SW 3 ON HAL7 
HAL7 

SEE IF MORE ERS 



DA7A»7YPE 0U7S#ERR0R 
MESSAGES AND C0NS7ANTS 

DAC 2BtD7 0021- - 7ES7 DA7A PROGRAM* 

OAC 16.Swi7CH SE77IN6S* 

DAC 21*PR0GRAM - AS DESIRED* 

DAC lltDA7 A—PROG* 

OAC 25»KEy in 1 DIGIT MODULE NuM 

DAC 05«BER • 

DAC 15»TES7 C0MPLE7ED* 

DAC 24»DISK PACK ON 1311 IS NQ7 

OAC 23» C E DISK PACK DONT USE 

DAC 1 Of PROGRAM, 

DAC 22»SW 3 ON FOR C0BREC7IN6 

DAC 08» KEY IN* 

ERROR MESSAGES 

DAC i4#WRI7E 20 SC7 * 

OAC 14»READ BK COMP • 

DAC 14, READ 20 SCTR « 

DAC 14 • PROG COMPARE • 

DAC 15 • DATA NOT EQUAL* 

DAC 06 t SEEK ! 

DAC 14, ADS CK 136) * 

DAC 14, WLR CK (37) * 

DAC 15, OVFO CK (38)-* 

DAC 19, FILE NO IND 139) * 

DAC l?t RD CK <06) • 

DAC 13, WR CK (07) • 

DAC 13, MBR-E (16) » 

OAC 13» MBR-O (17) • 

DAC 14, SELECT LOCK • 

DAC 14, CYL 99 HD 9» 

DAC 23, ERROR OCCURRED BUT SW 1 

DAC 21 , WAS ON THUS NO FTO« • 

DAC 27, ACCESS ARM AT 99 SHD BE 97* 

DATA ,CONSTANTS,WORK ING 
AREA AND SUB^INS7RUC7IONS 

DSC 20,00000000001111111111 

DSC 20.22222222223333333333 

DSC 20,44444444445555555555 

DSC 20,66666666667777777777 

DSC 20,8888B888889999999999 



02418 
02430 
02442 
02454 
02466 
02478 
02490 
02502 
02514 
02526 
02538 



02551 
02607 
02639 
02681 
02703 
02753 
02763 
02793 
02841 
02807 
02907 
02951 



02967 

02995 

03023 

03051 

03079 

0310>; 

03121 

03149 

03177 

03207 

03245 

03271 

03297 

03323 

03349 

03377 

03405 

03451- 

03493 



26 02460 
34 OOOOO 
39 '>9999 
39 99999 
39 03377 
25 03961 
31 00100 
16 02443 

47 02538 

48 00000 

49 02022 



00056 
00032 
00042 
00022 
00050 
00010 
00030 
00048 
00046 
00020 
00044 
00016 



00028 

00028 

00028 

00028 

00030 

00012 

00028 

00028 

00030 

00038 

00026 

00026 

00026 

00026 

00028 

00028 

00046 

00042 ■ 

00054 



02357 
00102 
00100 
00100 
00100 
03957 
03646 
000L9 
00300 
00000 
00000 



03546 0C020 
03566 00020 
03566 00020 
03606 00020 
03626 00020 
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0291 0 


TAB 


DSC 






03646 


vOOOZ 








b'SID 


1 nO k 4 » A 


MATU TARtPC 
riAin IMOfaCd 


V & i 'r g 


W W i> U V 




V # * if W 


N 


DC 


9 m 00 • • 


MODULE 

f ■ w w Rur wi 


03949 


00002 




02940 




DC 


2t00«t 


Buffer 


03951 


00002 




W C 7 7 V 


M 






MODULE NO* 


03953 


00002 








DC 


2f OOtt 


Buffer 


03955 


00002 




02970 


RM 


DC 


2*0* f* 


RECORD MARK 


03957 


00002 




n99fin 


^ cn 


DC 


2 a 00 a « 


C E HAP 


03959 


00002 




09990 


TRM 


DC 




ERROR MAP 


03961 


00002 




OSOOO 

V ^ w V V 


6M 


OGH 


9 9 9 


GROUP MARK 


03962 


00001 




03010 




DAC 

•r n V 


XyO 




03965 


00002 




03020 
w J w ft w 


SI 


DSC 


9«000006020«t 


SUB* INST 


03966 


00009 






DSA 


Al-i*! 




03979 


00005 •4032 


03040 




OSC 


9t0000000209 9 


SUB-INST 


03980 


00009 




w •» w ^ w 




DSA 


A2'«>1 




03993 


00005 -6034 


030&0 

W 49 V w w 


S3 


OSC 


9*000000001 »9 


SUB'INST 


03994- 


00009 




03070 




DSA 


A3'*'l 




04007 


00005 -6036 


OlOfiO 


rr 


DC 


5 9 06640 9 • 


CK CVL 


04012 


00005 




03090 


DC 


S9070609* 


CK CYL 


04017 


00005 




03100 




DC 


590732099 


CK CTL 


04022 


00005 








DC 


591996099 


CK CYL 


04027 


00005 










* 9 W . 




04029 


00002 






A t 


DC • 


& 9 W 9 9 


LABEL 


04031 


00002 




03140 


DSB 


2091009* 


DATA AREA 


04051 


02000 




031 ^0 


A2 


DC 


290099 


LABEL 


06033 


00002 




vf 5 1 ou 


DSB 


20tl0099 


DATA AREA 


06053 


02000 




ft31T0 


A3 


DC- 


2 9 00 9 9 


LABEL 


0S035 


00002 




03180 




DSB 


20al009« 


DATA AREA 


08055 


02000 




fON 


DS 


918117 




18117 


00000 






MONiT 


DS 


918000 




18000 


00000 




12345 


DAC 


049DT21 
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